home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO009.dsk
/
FILE.STAMP.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
668b
|
26 lines
10 DIM Y(6),M(3),D(4)
15 HOME
20 INPUT "ENTER DATE IN FORM 08/27/85 ";D$
30 INPUT "ENTER TIME IN FORM 1520 ";TIME$
40 HR = VAL( LEFT$(TIME$,2))
50 POKE 49043,HR
60 MIN = VAL( RIGHT$(TIME$,2))
70 POKE 49042,MIN
80 MO = VAL( LEFT$(D$,2))
90 DAY = VAL( MID$ (D$,4,2))
100 YR = VAL( RIGHT$(D$,2))
110 FOR I = 6 TO 0 STEP -1
120 Y(I) = INT(YR/2 ^I)
130 YV = YV +Y(I) *2 ^(I +1)
140 YR = YR -Y(I) *2 ^I
150 NEXT I
160 FOR I = 3 TO 0 STEP -1
170 M(I) = INT(MO/2 ^I)
180 MO = MO -M(I) *2 ^I
190 IF I <3 THEN MV = MV +M(I) *2 ^(I +5)
195 NEXT I
200 HB = YV +M(3)
210 LB = MV +DAY
220 POKE 49041,HB
230 POKE 49040,LB
240 PRINT CHR$(4)"-STARTUP"